home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 3
/
Your Choice Software Collection 3.iso
/
os2
/
rxbas134
/
rxixread.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-05-13
|
729b
|
37 lines
/* rexx */
signal on syntax
say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
parse arg noname noix
say rexxbase_init()
say rexxbase_opendbf("noname", noix)
c = 0
r = rexxbase_findrecord("noname","-1")
do while(r = '')
do j = 1 to noname.fieldcount
k = "t = noname."noname.fieldname.j".type"
interpret k
k = "say noname.fieldname.j "
k = k || " is noname." || noname.fieldname.j
interpret k
end /* do */
r = rexxbase_readdbf("noname")
c = c + 1
end
say r ' @ ' c
say rexxbase_closedbf("noname")
return
syntax:
errormsg = 'rexx error ' rc ' in line ' sigl ':' errortext(rc)
say errormsg
say sourceline(sigl)
exit